home *** CD-ROM | disk | FTP | other *** search
/ PCMania 45 / PCMania CD45_1.iso / vb4wm / vb4-4.cab / butterf.frm < prev    next >
Text File  |  1995-10-16  |  3KB  |  93 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "Mariposa"
  5.    ClientHeight    =   4005
  6.    ClientLeft      =   45
  7.    ClientTop       =   1260
  8.    ClientWidth     =   7395
  9.    ClipControls    =   0   'False
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   1
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    Height          =   4410
  20.    Left            =   -15
  21.    LinkTopic       =   "Form1"
  22.    ScaleHeight     =   267
  23.    ScaleMode       =   3  'Pixel
  24.    ScaleWidth      =   493
  25.    Top             =   915
  26.    Width           =   7515
  27.    WindowState     =   2  'Maximized
  28.    Begin VB.CommandButton Command1 
  29.       Caption         =   "&Salir"
  30.       Height          =   495
  31.       Left            =   6000
  32.       TabIndex        =   0
  33.       Top             =   3360
  34.       Width           =   1095
  35.    End
  36.    Begin VB.Timer Timer1 
  37.       Interval        =   200
  38.       Left            =   1890
  39.       Top             =   2940
  40.    End
  41.    Begin VB.Image Main 
  42.       Height          =   1155
  43.       Left            =   360
  44.       Picture         =   "BUTTERF.frx":0000
  45.       Top             =   2640
  46.       Width           =   1155
  47.    End
  48.    Begin VB.Image CloseWings 
  49.       Height          =   1155
  50.       Left            =   1920
  51.       Picture         =   "BUTTERF.frx":0C8A
  52.       Top             =   240
  53.       Visible         =   0   'False
  54.       Width           =   1155
  55.    End
  56.    Begin VB.Image OpenWings 
  57.       Height          =   1155
  58.       Left            =   360
  59.       Picture         =   "BUTTERF.frx":1914
  60.       Top             =   240
  61.       Visible         =   0   'False
  62.       Width           =   1155
  63.    End
  64. End
  65. Attribute VB_Name = "Form1"
  66. Attribute VB_Creatable = False
  67. Attribute VB_Exposed = False
  68.  
  69.  
  70. Private Sub Command1_Click()
  71.     Unload Me
  72.     End
  73. End Sub
  74.  
  75. Private Sub Form_Load()
  76.     command1.Move 10, 10
  77. End Sub
  78.  
  79.  
  80. Private Sub Timer1_Timer()
  81.      Static PickBmp As Integer
  82.      Main.Move Main.Left + 20, Main.Top - 5
  83.      ' Si desea cambiar el ejemplo, use la lφnea siguiente en lugar de la anterior.
  84.      ' Main.Move (Main.Left + 20) Mod ScaleWidth, (Main.Top - 5 + ScaleHeight) Mod ScaleHeight
  85.      If PickBmp Then
  86.         Main.Picture = OpenWings.Picture  ' Muestra la imagen de la mariposa con las alas abiertas.
  87.      Else
  88.         Main.Picture = CloseWings.Picture ' Muestra la imagen de la mariposa con las alas cerradas.
  89.      End If
  90.      PickBmp = Not PickBmp                ' Alterna el valor.
  91. End Sub
  92.  
  93.